1) LIBMAC.MAC[PAS,SYS] and 2) LIBMAC.MAC[1,ARR]	6-30-79 16:26	pages 1,1

**** File 1) LIBMAC.MAC[PAS,SYS], Page 1 line 31
1)	C00105 00029		TITLE	DATE *** PROCEDURE DATE ***
1)	C00109 00030		TITLE	TIME *** PROCEDURE TIME ***
1)	C00112 00031		TITLE	EXIT *** PROCEDURES WRTPC AND OTHER EXITS ***
1)	C00117 00032		TITLE	DEBSP *** DEBUG SUPPORT ***
1)	C00127 00033	
1)	C00128 00034		TITLE	WRTFNM *** PROCEDURES WRTFNM AND WRTSIX ***
1)	C00132 00035		TITLE	TMPTST *** PROCEDURE TMPTST ***
1)	C00135 00036		TITLE	ASTOSX *** PROCEDURE ASTOSX ***
1)	C00137 00037		TITLE	REAAUX *** PROCEDURES GETSGN, GETINT AND RTEST ***
1)	C00142 00038		TITLE	SETEOF *** PROCEDURE SETEOF ***
1)	C00146 00039		TITLE	WRTAUX *** PROCEDURES WRTBLK, TOOSML, WRTSGN AND WRTOPN ***
1)	C00149 00040		TITLE	FORER. *** PROCEDURE FORER. ***
1)	C00150 00041		END
1)	C00151 00042	
1)	C00152 ENDMK
1)	C⊗;
**** File 2) LIBMAC.MAC[1,ARR], Page 1 line 31
2)	C00106 00029		TITLE	DATE *** PROCEDURE DATE ***
2)	C00110 00030		TITLE	TIME *** PROCEDURE TIME ***
2)	C00113 00031		TITLE	EXIT *** PROCEDURES WRTPC AND OTHER EXITS ***
2)	C00118 00032		TITLE	DEBSP *** DEBUG SUPPORT ***
2)	C00128 00033	
2)	C00129 00034		TITLE	WRTFNM *** PROCEDURES WRTFNM AND WRTSIX ***
2)	C00133 00035		TITLE	TMPTST *** PROCEDURE TMPTST ***
2)	C00136 00036		TITLE	ASTOSX *** PROCEDURE ASTOSX ***
2)	C00138 00037		TITLE	REAAUX *** PROCEDURES GETSGN, GETINT AND RTEST ***
2)	C00143 00038		TITLE	SETEOF *** PROCEDURE SETEOF ***
2)	C00147 00039		TITLE	WRTAUX *** PROCEDURES WRTBLK, TOOSML, WRTSGN AND WRTOPN ***
2)	C00150 00040		TITLE	FORER. *** PROCEDURE FORER. ***
2)	C00151 00041		END
2)	C00152 00042	
2)	C00153 ENDMK
2)	C⊗;
***************


**** File 1) LIBMAC.MAC[PAS,SYS], Page 28 line 77
1)		PUSHJ	TOPP	,GETCNT	    	    ;GET 1ST CHAR OF NEXT LINE
**** File 2) LIBMAC.MAC[1,ARR], Page 28 line 77
2)		MOVE	AC0	,[ASCIZ/-----/]	    ;ARR. SET THE LINE NUMBER
2)		MOVEM	AC0	,FILLNR(REG)	    ;TO DASHES
2)		PUSHJ	TOPP	,GETCNT	    	    ;GET 1ST CHAR OF NEXT LINE
***************


**** File 1) LIBMAC.MAC[PAS,SYS], Page 28 line 82
1)		JRST	GETRET			    ;YES - RETURN
  1) LIBMAC.MAC[PAS,SYS] and 2) LIBMAC.MAC[1,ARR]	6-30-79 16:26	pages 28,28

1)		MOVE	AC1	,@FILBTP(REG)	    ;NO - GET LINENUMBER OR PAGEMARK
**** File 2) LIBMAC.MAC[1,ARR], Page 28 line 84
2)		JRST	GETRET			    ;AND RETURN
2)		MOVE	AC1	,@FILBTP(REG)	    ;NO - GET LINENUMBER OR PAGEMARK
***************


**** File 1) LIBMAC.MAC[PAS,SYS], Page 28 line 98
1)		CAME	AC1	,[ASCII/     /]     ;PAGE MARK ?
1)		JRST	.+4			    ;NO - GET NEXT CHARACTER
1)		AOS	FILEOL(REG)		    ;YES - SET END OF LINE
1)		SETZ	AC1	,		    ;CHARACTERCNT TO ZERO
1)		JRST	GETBLK
1)		HRRZS	FILCNT(REG)		    ;SETS CHARACTERCOUNT TO ZERO
**** File 2) LIBMAC.MAC[1,ARR], Page 28 line 100
2)		HRRZS	FILCNT(REG)		    ;SETS CHARACTERCOUNT TO ZERO
***************


**** File 1) LIBMAC.MAC[PAS,SYS], Page 28 line 135
1)		CAIN	AC0	,11		    ;HORIZONTAL TAB
**** File 2) LIBMAC.MAC[1,ARR], Page 28 line 132
2)		CAIN	AC0	,14		    ;ARR. FORM FEED?
2)		JRST	GETFF			    ;MARK IT IN LINENR
2)		CAIN	AC0	,11		    ;HORIZONTAL TAB
***************


**** File 1) LIBMAC.MAC[PAS,SYS], Page 28 line 142
1)	GETLF:	AOS	FILEOL(REG)		    ;SET EOLN
1)		SETZ	AC1	,		    ;CLEARS CHARACTERCOUNT
1)		JRST	GETBLK			    ;GET BLANK IF LF
1)	GETCON:	SUBI	AC0	,40		    ;CORR. CHAR
**** File 2) LIBMAC.MAC[1,ARR], Page 28 line 141
2)	GETFF:	MOVE	AC1	,[ASCIZ/     /]	    ;ARR. PUT BLANKS IN LINENR
2)		MOVEM	AC1	,FILLNR(REG)	    ; and do same as line feed
2)	GETLF:	AOS	FILEOL(REG)		    ;SET EOLN
2)		SETZ	AC1	,		    ;CLEARS CHARACTERCOUNT
2)		JRST	GETBLK			    ;DEPOSIT A BLANK
2)	GETCON:	SUBI	AC0	,40		    ;CORR. CHAR
***************